home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ainet / capacity.frm < prev    next >
Text File  |  1997-07-13  |  5KB  |  170 lines
  1. VERSION 4.00
  2. Begin VB.Form Capacity 
  3.    Caption         =   "Set New Capacity ..."
  4.    ClientHeight    =   2652
  5.    ClientLeft      =   876
  6.    ClientTop       =   1416
  7.    ClientWidth     =   3828
  8.    Height          =   3036
  9.    Left            =   828
  10.    LinkTopic       =   "Capacity"
  11.    ScaleHeight     =   2652
  12.    ScaleWidth      =   3828
  13.    Top             =   1080
  14.    Width           =   3924
  15.    Begin VB.TextBox NewCapacity 
  16.       BackColor       =   &H00FFFFFF&
  17.       BeginProperty Font 
  18.          name            =   "MS Sans Serif"
  19.          charset         =   1
  20.          weight          =   700
  21.          size            =   7.8
  22.          underline       =   0   'False
  23.          italic          =   0   'False
  24.          strikethrough   =   0   'False
  25.       EndProperty
  26.       ForeColor       =   &H00000000&
  27.       Height          =   288
  28.       Left            =   2520
  29.       MaxLength       =   4
  30.       TabIndex        =   9
  31.       Top             =   1560
  32.       Width           =   852
  33.    End
  34.    Begin VB.CommandButton CancelBtn 
  35.       Cancel          =   -1  'True
  36.       Caption         =   "Cancel"
  37.       Height          =   372
  38.       Left            =   1920
  39.       TabIndex        =   7
  40.       Top             =   2040
  41.       Width           =   1332
  42.    End
  43.    Begin VB.CommandButton OKBtn 
  44.       Caption         =   "OK"
  45.       Default         =   -1  'True
  46.       Height          =   372
  47.       Left            =   360
  48.       TabIndex        =   6
  49.       Top             =   2040
  50.       Width           =   1332
  51.    End
  52.    Begin VB.Label Label4 
  53.       Alignment       =   1  'Right Justify
  54.       Caption         =   "Set new capacity to:"
  55.       BeginProperty Font 
  56.          name            =   "MS Sans Serif"
  57.          charset         =   1
  58.          weight          =   700
  59.          size            =   7.8
  60.          underline       =   0   'False
  61.          italic          =   0   'False
  62.          strikethrough   =   0   'False
  63.       EndProperty
  64.       Height          =   252
  65.       Left            =   240
  66.       TabIndex        =   8
  67.       Top             =   1560
  68.       Width           =   2172
  69.    End
  70.    Begin VB.Label FreeEntries 
  71.       BeginProperty Font 
  72.          name            =   "MS Sans Serif"
  73.          charset         =   1
  74.          weight          =   700
  75.          size            =   7.8
  76.          underline       =   0   'False
  77.          italic          =   0   'False
  78.          strikethrough   =   0   'False
  79.       EndProperty
  80.       Height          =   252
  81.       Left            =   2640
  82.       TabIndex        =   5
  83.       Top             =   1080
  84.       Width           =   612
  85.    End
  86.    Begin VB.Label ModelVectors 
  87.       BeginProperty Font 
  88.          name            =   "MS Sans Serif"
  89.          charset         =   1
  90.          weight          =   700
  91.          size            =   7.8
  92.          underline       =   0   'False
  93.          italic          =   0   'False
  94.          strikethrough   =   0   'False
  95.       EndProperty
  96.       Height          =   252
  97.       Left            =   2640
  98.       TabIndex        =   4
  99.       Top             =   720
  100.       Width           =   612
  101.    End
  102.    Begin VB.Label Capacity 
  103.       BeginProperty Font 
  104.          name            =   "MS Sans Serif"
  105.          charset         =   1
  106.          weight          =   700
  107.          size            =   7.8
  108.          underline       =   0   'False
  109.          italic          =   0   'False
  110.          strikethrough   =   0   'False
  111.       EndProperty
  112.       Height          =   252
  113.       Left            =   2640
  114.       TabIndex        =   3
  115.       Top             =   360
  116.       Width           =   612
  117.    End
  118.    Begin VB.Label Label3 
  119.       Alignment       =   1  'Right Justify
  120.       Caption         =   "Number of free enties:"
  121.       Height          =   252
  122.       Left            =   360
  123.       TabIndex        =   2
  124.       Top             =   1080
  125.       Width           =   2052
  126.    End
  127.    Begin VB.Label Label2 
  128.       Alignment       =   1  'Right Justify
  129.       Caption         =   "Number of model vectors:"
  130.       Height          =   252
  131.       Left            =   360
  132.       TabIndex        =   1
  133.       Top             =   720
  134.       Width           =   2052
  135.    End
  136.    Begin VB.Label Label1 
  137.       Alignment       =   1  'Right Justify
  138.       Caption         =   "Current Capacity:"
  139.       Height          =   252
  140.       Left            =   360
  141.       TabIndex        =   0
  142.       Top             =   360
  143.       Width           =   2052
  144.    End
  145. End
  146. Attribute VB_Name = "Capacity"
  147. Attribute VB_Creatable = False
  148. Attribute VB_Exposed = False
  149. Private Sub CancelBtn_Click()
  150.     Hide
  151. End Sub
  152.  
  153. Private Sub Form_Activate()
  154.     NewCapacity.SetFocus
  155. End Sub
  156.  
  157. Public Sub OkBtn_Click()
  158.     Dim nc As Long
  159.     Dim Txt As String
  160.     nc = CLng(NewCapacity)
  161.     If nc < 2 Or nc > 10000 Then
  162.         Txt = "The new capacity must be in range of" + Chr(10) + "[2 ... 10000]!"
  163.         MsgBox (Txt)
  164.     Else
  165.         Hide
  166.         MainForm.Ret = nc
  167.     End If
  168. End Sub
  169.  
  170.